Imports Clo = Enhancements.Core.Logging
Imports Ref = System.Reflection
Imports Sys = System

Namespace Enhancements.Basic
    ''' <summary>Represents errors that occur during assertion routines.</summary>
    <Serializable(), DebuggerStepThrough()> _
    Public MustInherit Class AssertException
        Inherits Sys.Exception

        ''' <summary>Initializes a new instance with the name of the object that caused this exception.</summary>
        ''' <param name="_objectName">The name of the object that caused the exception.</param>
        Protected Sub New(ByVal _objectName As System.String)
            ObjectName = _objectName
        End Sub

        Private __ObjectName As System.String = Nothing
        ''' <summary>Gets the name of the object that caused this exception.</summary>
        Public Property ObjectName() As System.String
            Get
                Return __ObjectName
            End Get
            Private Set(ByVal _value As System.String)
                __ObjectName = _value
            End Set
        End Property

    End Class
End Namespace
